home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / util / rexx / rxcmanager.lha / rxcmanager / examples / url.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1998-10-15  |  527 b   |  32 lines
  1. /* */
  2.  
  3. if ~show("L","rxcmanager.library") then
  4.     if ~addlib("rxcmanager.library",0,-30) then do
  5.         say "no rxcmanager.library"
  6.         exit
  7.     end
  8.  
  9. parse arg key
  10.  
  11. k = "#?"key"#?"
  12.  
  13. patt.Name    = k
  14. patt.WWW     = k
  15. patt.Comment = k
  16.  
  17. num = CMFind("WWW","URL","PATT",1)
  18. if num=0 then do
  19.     say "No url entry found for '"key"'"
  20.     exit
  21. end
  22.  
  23. say "Found" num "url(s):"
  24. do i=0 to num-1
  25.     say
  26.     say "Name:     " url.i.Name
  27.     say "WWW:      " url.i.WWW
  28.     say "Comment:  " url.i.Comment
  29.     say "WebMaster:" url.i.WebMaster
  30.     say "EMail:    " url.i.EMail
  31. end
  32.